program aula01;

uses
        crt;

var
        n1, n2: integer;
begin
        clrscr;

        write('Informe um valor Inteiro: ');
        readln(n1);

        write('Informe um valor Inteiro: ');
        readln(n2);

        if n1 > n2 then
        begin
                writeln('O numero ', n1, ' e maior que ', n2);
        end
        else
        begin
                if n1 = n2 then
                begin
                        writeln('Os numeros ', n1 , ' e ', n2, ' sao iguais');
                end
                else
                begin
                        writeln('O numero ', n2 ,' e maior que ', n1);
                end;
        end;
        readkey;
end.